package com.ruoyi.framework.aspectj;

import java.lang.reflect.Method;
import java.util.Arrays;
import java.util.Collections;
import java.util.List;

import com.ruoyi.common.core.domain.entity.SysDictData;
import com.ruoyi.common.utils.DictUtils;
import com.ruoyi.common.utils.spring.SpringUtils;
import com.ruoyi.system.service.ISysUserService;
import org.aspectj.lang.JoinPoint;
import org.aspectj.lang.Signature;
import org.aspectj.lang.annotation.Aspect;
import org.aspectj.lang.annotation.Before;
import org.aspectj.lang.annotation.Pointcut;
import org.aspectj.lang.reflect.MethodSignature;
import org.springframework.stereotype.Component;
import com.ruoyi.common.annotation.DataScope;
import com.ruoyi.common.core.domain.BaseEntity;
import com.ruoyi.common.core.domain.entity.SysRole;
import com.ruoyi.common.core.domain.entity.SysUser;
import com.ruoyi.common.utils.ShiroUtils;
import com.ruoyi.common.utils.StringUtils;

/**
 * 数据过滤处理
 *
 * @author ruoyi
 */
@Aspect
@Component
public class DataScopeAspect {
    public static final int LEADER_DATA_SCOPE_ALL = 0;
    public static final int LEADER_DATA_SCOPE_DEPT_ONLY = 1;
    public static final int LEADER_DATA_SCOPE_USER_ONLY = 2;
    /**
     * 全部数据权限
     */
    public static final String DATA_SCOPE_ALL = "1";

    /**
     * 自定数据权限
     */
    public static final String DATA_SCOPE_CUSTOM = "2";

    /**
     * 部门数据权限
     */
    public static final String DATA_SCOPE_DEPT = "3";

    /**
     * 部门及以下数据权限
     */
    public static final String DATA_SCOPE_DEPT_AND_CHILD = "4";

    /**
     * 仅本人数据权限
     */
    public static final String DATA_SCOPE_SELF = "5";

    /**
     * 数据权限过滤关键字
     */
    public static final String DATA_SCOPE = "dataScope";

    public static final String LOGIN_USER = "loginUser";

    public static final String PMO_FLAG = "pmo";

    public static final String USER_ROLE_ONLY = "roleOnly";

    private static ISysUserService userService;

    // 配置织入点
    @Pointcut("@annotation(com.ruoyi.common.annotation.DataScope)")
    public void dataScopePointCut() {
    }

    @Before("dataScopePointCut()")
    public void doBefore(JoinPoint point) throws Throwable {
        handleDataScope(point);
    }

    protected void handleDataScope(final JoinPoint joinPoint) {
        // 获得注解
        DataScope controllerDataScope = getAnnotationLog(joinPoint);
        if (controllerDataScope == null) {
            return;
        }
        // 获取当前的用户
        SysUser currentUser = ShiroUtils.getSysUser();
        if (currentUser != null) {
            // 如果是超级管理员，则不过滤数据
            if (!currentUser.isAdmin()) {
                dataScopeFilter(joinPoint, currentUser, controllerDataScope.deptAlias(),
                        controllerDataScope.userAlias(), controllerDataScope.filterLeader());
            }
            Object params = joinPoint.getArgs()[0];
            if (StringUtils.isNotNull(params) && params instanceof BaseEntity) {
                BaseEntity baseEntity = (BaseEntity) params;
                baseEntity.getParams().put(PMO_FLAG, ShiroUtils.getSubject().hasRole("pmo") || currentUser.isAdmin());
            }
        }
    }

    /**
     * 数据范围过滤
     *
     * @param joinPoint 切点
     * @param user      用户
     * @param deptAlias 部门别名
     * @param userAlias 用户别名
     */
    public static void dataScopeFilter(JoinPoint joinPoint, SysUser user, String deptAlias, String userAlias, int filterLeaders) {
        List<SysRole> userRoles = user.getRoles();
        //如果用户拥有读取全部数据的权限则不进行任何过滤
        if (userRoles != null && userRoles.stream().anyMatch(x -> DATA_SCOPE_ALL.equals(x.getDataScope()))) {
            return;
        }
        StringBuilder sqlString = new StringBuilder();

        //需过滤负责人信息
        Boolean isLeader = false;
        switch (filterLeaders) {
            case LEADER_DATA_SCOPE_ALL:
                if (user.getDeptLeader()) { //根据负责部门id过滤数据
                    isLeader = true;
                    sqlString.append(StringUtils.format(
                            " OR {}.dept_id IN ( select dept_id FROM sys_dept where leader_id = {})", deptAlias,
                            user.getUserId()));
                }
                if (user.getUserLeader()) { //根据负责人员id过滤数据
                    isLeader = true;
                    sqlString.append(StringUtils.format(
                            " OR {}.user_id IN ( select user_id FROM sys_user where mgt_user_id = {})", userAlias,
                            user.getUserId()
                    ));
                }
                if (!isLeader) {  //只能看自己的数据
                    if (StringUtils.isNotBlank(userAlias)) {
                        sqlString.append(StringUtils.format(" OR {}.user_id = {} ", userAlias, user.getUserId()));
                    } else {
                        // 数据权限为仅本人且没有userAlias别名不查询任何数据
                        sqlString.append(" OR 1=0 ");
                    }
                }
                break;
            case LEADER_DATA_SCOPE_DEPT_ONLY:
                if (user.getDeptLeader()) { //根据负责部门id过滤数据
                    sqlString.append(StringUtils.format(
                            " OR {}.dept_id IN ( select dept_id FROM sys_dept where leader_id = {})", deptAlias,
                            user.getUserId()));
                } else {
                    if (StringUtils.isNotBlank(userAlias)) {
                        sqlString.append(StringUtils.format(" OR {}.user_id = {} ", userAlias, user.getUserId()));
                    } else {
                        // 数据权限为仅本人且没有userAlias别名不查询任何数据
                        sqlString.append(" OR 1=0 ");
                    }
                }
                break;
            case LEADER_DATA_SCOPE_USER_ONLY:
                if (user.getDeptLeader()) { //根据负责人员id过滤数据
                    sqlString.append(StringUtils.format(
                            " OR {}.user_id IN ( select user_id FROM sys_user where mgt_user_id = {})", userAlias,
                            user.getUserId()
                    ));
                } else {
                    if (StringUtils.isNotBlank(userAlias)) {
                        sqlString.append(StringUtils.format(" OR {}.user_id = {} ", userAlias, user.getUserId()));
                    } else {
                        // 数据权限为仅本人且没有userAlias别名不查询任何数据
                        sqlString.append(" OR 1=0 ");
                    }
                }
                break;
            default:
                break;
        }
        String leaderFilter = "";
        if (StringUtils.isNotBlank(sqlString.toString())) {
            leaderFilter = " AND (" + sqlString.substring(4) + ")";
        }
        sqlString = new StringBuilder();

        for (SysRole role : user.getRoles()) {
            String dataScope = role.getDataScope();
            if (DATA_SCOPE_ALL.equals(dataScope)) {
                sqlString = new StringBuilder();
                break;
            } else if (DATA_SCOPE_CUSTOM.equals(dataScope)) {
                sqlString.append(StringUtils.format(
                        " OR {}.dept_id IN ( SELECT dept_id FROM sys_role_dept WHERE role_id = {} ) ", deptAlias,
                        role.getRoleId()));
            } else if (DATA_SCOPE_DEPT.equals(dataScope)) {
                sqlString.append(StringUtils.format(" OR {}.dept_id = {} ", deptAlias, user.getDeptId()));
            } else if (DATA_SCOPE_DEPT_AND_CHILD.equals(dataScope)) {
                sqlString.append(StringUtils.format(
                        " OR {}.dept_id IN ( SELECT dept_id FROM sys_dept WHERE dept_id = {} or find_in_set( {} , ancestors ) )",
                        deptAlias, user.getDeptId(), user.getDeptId()));
            } else if (DATA_SCOPE_SELF.equals(dataScope)) {
                if (StringUtils.isNotBlank(userAlias)) {
                    sqlString.append(StringUtils.format(" OR {}.user_id = {} ", userAlias, user.getUserId()));
                } else {
                    // 数据权限为仅本人且没有userAlias别名不查询任何数据
                    sqlString.append(" OR 1=0 ");
                }
            }
        }

        if (StringUtils.isNotBlank(sqlString.toString())) {
            Object params = joinPoint.getArgs()[0];
            if (StringUtils.isNotNull(params) && params instanceof BaseEntity) {
                BaseEntity baseEntity = (BaseEntity) params;
                baseEntity.getParams().put(DATA_SCOPE, leaderFilter + " AND (" + sqlString.substring(4) + ")");
                baseEntity.getParams().put(LOGIN_USER, user.getUserId());
            }
        } else if (StringUtils.isNotBlank(leaderFilter)) {
            Object params = joinPoint.getArgs()[0];
            if (StringUtils.isNotNull(params) && params instanceof BaseEntity) {
                BaseEntity baseEntity = (BaseEntity) params;
                baseEntity.getParams().put(DATA_SCOPE, leaderFilter);
                baseEntity.getParams().put(LOGIN_USER, user.getUserId());
            }
        } else {
            Object params = joinPoint.getArgs()[0];
            if (StringUtils.isNotNull(params) && params instanceof BaseEntity) {
                BaseEntity baseEntity = (BaseEntity) params;
                baseEntity.getParams().put(LOGIN_USER, user.getUserId());
            }
        }
    }

    /**
     * 是否存在注解，如果存在就获取
     */
    private DataScope getAnnotationLog(JoinPoint joinPoint) {
        Signature signature = joinPoint.getSignature();
        MethodSignature methodSignature = (MethodSignature) signature;
        Method method = methodSignature.getMethod();

        if (method != null) {
            return method.getAnnotation(DataScope.class);
        }
        return null;
    }
}
